#!/usr/bin/perl 
# iterate.pl
use strict;
use warnings;

my %hash = ('Key1' => 'Value1', 'Key2' => 'Value2');
# dump of hash
foreach (keys %hash) {
   print "$_ => $hash{$_} \n";
}